From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 5 Apr 2009 18:07:41 +0000 (+0000)
Subject: * net/tramp-fish.el (tramp-fish-do-copy-or-rename-file-directly):
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~962
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=f89ee0f2b6a132bdc072c0db5b33c5df3a91c7a1;p=emacs.git

* net/tramp-fish.el (tramp-fish-do-copy-or-rename-file-directly):
Use `tramp-default-file-modes'.
---

diff --git a/lisp/net/tramp-fish.el b/lisp/net/tramp-fish.el
index f3dfcc8f547..2377432bdea 100644
--- a/lisp/net/tramp-fish.el
+++ b/lisp/net/tramp-fish.el
@@ -917,7 +917,7 @@ PRESERVE-UID-GID is completely ignored."
   (when (and keep-date (functionp 'set-file-times))
     (set-file-times newname (nth 5 (file-attributes filename))))
   ;; Set the mode.
-  (set-file-modes newname (file-modes filename)))
+  (set-file-modes newname (tramp-default-file-modes filename)))
 
 (defun tramp-fish-get-file-entries (vec localname list)
   "Read entries returned by FISH server.